/Bdf {bind def} bind def
/Clw {currentlinewidth} Bdf
/Cp  {closepath} Bdf
/CPt  {currentpoint} Bdf
/Ct  {curveto} Bdf
/Gr  {grestore} Bdf
/Gs  {gsave} Bdf
/Lt  {lineto} Bdf
/Mt  {moveto} Bdf
/Np  {newpath} Bdf
/Rmt {rmoveto} Bdf
/Rlt {rlineto} Bdf
/Sk  {stroke} Bdf
/Slw {setlinewidth} Bdf
/Sw  {stringwidth pop} Bdf
/Tx	  {show} Bdf
/Get  { exch def } Bdf
/Pop4 { 4 {pop} repeat } Bdf

/SWidth 0 def
/Char 1 string def
/ChToStr { /Ch Get Char 0 Ch put } Bdf
/Chw { ChToStr Sw } Bdf

/Line
{ /Align Get /Y1 Get /X1 Get /Y0 Get /X0 Get
/Gap Clw 2 div def
Align 1 eq { /X0 X0 Gap sub def /X1 X1 Gap sub def } if
Align 2 eq { /Y0 Y0 Gap sub def /Y1 Y1 Gap sub def } if
X0 Y0 Mt X1 Y1 Lt Sk
} Bdf

/Head
{ /Left Get /Ch Get /Y0 Get
Left 0 ne { Char 0 Ch put Char Sw sub (k) Sw add } if
Y0 Mt Char 0 Ch put Char Tx
} Bdf

/Flag
{ /Left Get /Ch Get /Y0 Get
Left 0 ne { Char 0 116 put Char Sw sub (k) Sw add } if
Y0 Mt Char 0 Ch put Char Tx
} Bdf

/ChAt { /Ch Get Mt Char 0 Ch put Char Tx } Bdf

/RChAt
{ /Ch Get /EP Get
Mt Char 0 Ch put
{ Char Tx
CPt pop EP ge {exit} if
} loop
} Bdf

/DChAt
{ /Ag Get /Nc Get /Ch Get Mt
Char 0 Ch put
Gs
Ag rotate
Nc { Char Tx } repeat
Gr
} Bdf

/Clip
{ /Y1 Get /X1 Get /Y0 Get /X0 Get
 Np X0 Y0 Mt X1 Y0 Lt X1 Y1 Lt X0 Y1 Lt Cp clip Np } Bdf

/DoFont { exch findfont exch scalefont setfont } Bdf
/Dash { setdash 0 Line [] 0 setdash } Bdf

/Stem
{ /Y1 Get /Y0 Get /X0 Get
/SP ( ) Sw 1 sub def
/Y1 Y1 SP add def
{ Y0 Y1 gt
  { X0 Y0 Mt (m) show /Y0 Y0 SP sub def }{exit} ifelse
} loop
X0 Y1 Mt (m) Tx
} Bdf

/Staff
{ /Ch Get /X1 Get /Y0 Get /X0 Get
Char 0 Ch put
/CW Char Sw def
/X1 X1 CW sub def
X0 Y0 Mt
{ X1 currentpoint pop gt
  { Char show -.5 0 Rmt }{exit} ifelse
} loop
X1 Y0 Mt Char show
} Bdf

/Beam
{ /Bh Get /Ev Get /Eh Get /Sv Get /Sh Get /Pe Get /Ps Get
Gs
Sh -100000 Eh 100000 Clip
Bh Slw 2 setlinecap
/Bh Bh 2 div def
/Sv Sv Bh sub def
/Ev Ev Bh sub def
Ps Sv Mt Pe Ev Lt Sk
Gr
} Bdf

/Brace
{ /Y1 Get /X1 Get /Y0 Get /X0 Get
/BH X1 X0 sub 8 div def
/BV Y0 Y1 sub 96 div def
Gs
BH BV scale
X0 BH div Y0 24 BV mul sub BV div Mt (>) Tx
X0 BH div Y0 72 BV mul sub BV div Mt (?) Tx Gr
} Bdf

/Rect
{ /Y1 Get /X1 Get /Y0 Get /X0 Get
Np
X0 Y0 Mt
X0 Y1 Lt
X1 Y1 Lt
X1 Y0 Lt
Cp stroke
} Bdf

/ORect
{ /Y1 Get /X1 Get /Y0 Get /X0 Get
Gs Np
/W X1 X0 sub def /H Y1 Y0 sub def
X0 W 2 div add Y0 H 2 div add translate
1 H W div scale
0 0 W 2 div 0 360 arc Sk Gr
} Bdf

/RRect
{ /RD Get /Y1 Get /X1 Get /Y0 Get /X0 Get
Np 
X0 X1 X0 sub 2 div add Y0 Mt
X0 Y0 X0 Y1 RD arcto Pop4
X0 Y1 X1 Y1 RD arcto Pop4
X1 Y1 X1 Y0 RD arcto Pop4
X1 Y0 X0 Y0 RD arcto Pop4
Cp Sk } Bdf

/Curve
{ /Dh Get /SP Get
/Y3 Get /X3 Get /Y2 Get /X2 Get
/Y1 Get /X1 Get /Y0 Get /X0 Get
Gs Np
Dh 0 setdash SP Slw
X0 Y0 Mt X1 Y1 X2 Y2 X3 Y3 Ct Sk
Gr
} Bdf

/Slur
{ /Dh Get /SP Get
/Y3 Get /X3 Get /Y2 Get /X2 Get
/Y1 Get /X1 Get /Y0 Get /X0 Get
Gs Np
Dh 0 setdash
.25 Slw
{ SP 0 ge
{ X0 Y0 Mt X1 Y1 SP add X2 Y2 SP add X3 Y3 Ct Sk
/SP SP .25 sub def }{exit} ifelse
} loop
Gr
} Bdf

/FArc
{
/SA Get /EA Get /RH Get /RW Get
/Y0 Get /X0 Get
Np
/cmtx matrix currentmatrix def
X0 Y0 translate
RW RH scale
0 0 1 EA SA arc
cmtx setmatrix stroke
} Bdf

/Arrow
{
/AG Get /AY Get /Y0 Get /X0 Get
/AY AY 2 div def
/AX AY 2.5 mul def
Gs
Np
X0 Y0 Mt
AG rotate
AX neg AY Rlt
0 AY -2 mul Rlt
AX AY Rlt
Cp
fill
Gr
} Bdf

/GetFont
{ exch dup FontDirectory exch known {pop pop}{buildfont} ifelse } def
/buildfont { dup 256 string cvs (|______) anchorsearch pop pop
cvn findfont
dup length dict /newfont exch def
{ 1 index /FID ne
  {newfont 3 1 roll put}	
  {pop pop} ifelse	
} forall
exch
{newfont begin
/Encoding Encoding 256 array copy def
0 MacVectors
{ dup type /nametype eq	
  { Encoding 2 index 2 index put pop 
    1 add }
  { exch pop } ifelse
} forall
pop	
end} if	
newfont definefont pop
} Bdf

/MacVectors [ 39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis
/Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute
/egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde
/oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex
/udieresis/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
/registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash
/.notdef/plusminus/.notdef/.notdef/yen/mu/.notdef/.notdef
/.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslash
/questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdef
/guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe
/endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide
/.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright
/fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
/Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex
/Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/Ucircumflex
/Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla
/hungarumlaut/ogonek/caron ] def


%%IncludeFont: Aloisen
/MusicFont /Aloisen findfont 24 scalefont def
/MF { MusicFont setfont } Bdf
/MFG { /Aloisen findfont exch scalefont setfont } Bdf